home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / c / cujoct93.zip / 1110036B < prev    next >
Text File  |  1993-08-09  |  326b  |  24 lines
  1. FILE *volatile file = NULL;
  2. static int no_such_file;
  3. static int read_failed;
  4.  
  5. UNWIND_PROTECT(
  6. {
  7.   int i;
  8.  
  9.   file = fopen("data", "r");
  10.   if (file == NULL)
  11.     THROW(no_such_file);
  12.  
  13.   if (fscanf(file, "%d", &i) != 1)
  14.     THROW(read_failed);
  15.  
  16.   printf("%d\n", i);
  17. },
  18. {
  19.   if (file)
  20.     fclose(file);
  21. });
  22.  
  23.  
  24.